Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/mazIn311.dxr/Internal_20_Message Sprite .ls

Text File | 1998-05-06 | 1.8 KB | 50 lines

property whichevent, Addressee, EventToSend, params

on initSendSprite me
  init(me)
end

on mouseUp me
  if whichevent = #mouseUp then
    init(me)
  end if
end

on mouseDown me
  if whichevent = #mouseDown then
    init(me)
  end if
end

on prepareFrame me
  if whichevent = #prepareFrame then
    init(me)
  end if
end

on enterFrame me
  if whichevent = #enterFrame then
    init(me)
  end if
end

on exitFrame me
  if whichevent = #exitFrame then
    init(me)
  end if
end

on init me
  set doit to "sendSprite the Addressee of me, the EventToSend of me," && params
  do(doit)
end

on getPropertyDescriptionList
  set p_list to [#EventToSend: [#comment: "Message:", #format: #symbol, #default: #generic_event], #params: [#comment: "Param1, param2, ...", #format: #string, #default: EMPTY], #Addressee: [#comment: "Target Sprite:", #format: #integer, #default: 1], #whichevent: [#comment: "Initializing Event:", #format: #symbol, #range: [#mouseUp, #mouseDown, #prepareFrame, #enterFrame, #exitFrame, #initSendSprite], #default: #mouseUp]]
  return p_list
end

on getBehaviorDescription
  return "Sends a message to the designated sprite when the specified event occurs.  Any behaviors attached to the target sprite that are triggered by the message will be executed." & RETURN & "PARAMETERS:" & RETURN & "ΓÇó Message - Enter the message to send to the target sprite." & RETURN & "ΓÇó Params  - Enter parameters to be sent with the message, seperated with commas." & RETURN & "ΓÇó Target Sprite - Enter the number of the sprite channel to which message should be sent." & RETURN & "ΓÇó Initializing Event - Specify the event that triggers the behavior." & RETURN & "NOTES:" & RETURN & "If there is no behavior attached to the target sprite that responds to the message being sent, the message is passed to the cast member script, the current frame script, and then movie scripts."
end